use strict;
use warnings;

# dlugosc strumienia danych
my $len = 400;

# zapisanie dwoch pseudolosowych strumieni 0 i 1 do pliku
open FH, "> data/data_in";
for ( 0 .. 63 ) {
	print FH (int(rand(2)) or -1)." " for  ( 1 .. $len );
	print FH "\n";
}
close FH;
